home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / hard / drivr / SerialMouseD.lha / SerialMouseD / Install-SerialMouse next >
Text File  |  1999-02-06  |  3KB  |  108 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-SerialMouse v1.01 (6.2.99)
  4. ; *
  5. ; * This is the installation-script for SerialMouse
  6. ; *
  7. ; * Copyright © 1999 Stephan Fuhrmann
  8. ; *
  9. ; ************************************************
  10.  
  11. (welcome "Welcome to the SerialMouse installation!")
  12.  
  13. (set OSVersion (/ (getversion) 65536))
  14.  
  15. (set appname "SerialMouse")
  16.  
  17. (message "SerialMouse is SHAREWARE !\n\n"
  18.                         "This means that you *MUST* pay the shareware-fee\n"
  19.                         "after testing\n\nSerialMouse\n\nor delete it.\n"
  20.                         "\nChoose 'Proceed' if you agree!"
  21. )
  22.  
  23. (set mydest
  24.         (askdir
  25.                 (prompt "Select the directory where you\n want to put the SerialMouse executable.")
  26.                 (help
  27.                         "The directory where you store the executable "
  28.                         "should be easily accessible via WorkBench or CLI/Shell.\n\n"
  29.                         @askfile-help
  30.                 )
  31.                 (default "SYS:C")
  32.                 (disk)
  33.         )
  34. )
  35.  
  36. (copyfiles
  37.     (prompt "Copying SerialMouse driver to " @mydest)
  38.     (source "SerialMouse")
  39.     (dest mydest)
  40.     (confirm)
  41.     (help
  42.         "Installation process is about to copy the executable to your selected"
  43.         "destination drawer."
  44.         @copylib-help
  45.     )
  46. )
  47.  
  48. (set protocol
  49.     (askchoice
  50.         (prompt "Please choose the protocol your mouse is using:")
  51.         (help @askchoice-help)
  52.         (choices "Microsoft ® (2 buttons)" "Mousesystems ® (3 buttons)")
  53.         (default 0)
  54.     )
  55. )
  56.  
  57. (select protocol (set protostr "Microsoft") (set protostr "Mousesystems"))
  58.  
  59. (set device
  60.     (askfile
  61.         (prompt "Please choose the device driver to use:")
  62.         (help "The device driver usually being used is "
  63.         "serial.device unit 0. Only choose something different if "
  64.         "you have an I/O extender.")
  65.         (default "devs:serial.device")
  66.     )
  67. )
  68.  
  69. (if (fileonly device)
  70.     (if (= "devs:" (pathonly device))
  71.         (set device (fileonly device))
  72.         (set dummy 0)
  73.     )
  74.     (set device "serial.device")
  75. )
  76.  
  77. (set unit
  78.     (asknumber
  79.         (prompt "What unit number of " device " do you want to use?")
  80.         (range 0 255)
  81.         (default 0)
  82.         (help "Select the device unit the serial mouse is plugged at. If you "
  83.               "have no serial I/O extenders, this will usually be unit 0 "
  84.               "(of the serial.device)" )
  85.     )
  86. )
  87.  
  88. (set pri
  89.     (asknumber
  90.         (prompt "What task priority do you want to use?")
  91.         (range 0 30)
  92.         (default 10)
  93.         (help "Device drivers are usually being run at a higher priority "
  94.         "than normal applications because their vital importance to the user.")
  95.     )
  96. )
  97.  
  98. (set cmd
  99.     (tackon mydest "SerialMouse")
  100. )
  101.  
  102. (startup appname
  103.     (prompt "Going to insert a call to SerialMouse in your s:user-startup file ")
  104.     (help "The call being inserted will start SerialMouse as soon as your computer boots up.")
  105.     (command "Run >NIL: <NIL: " cmd " >NIL: <NIL: DEVICE=" device " " "UNIT=" unit " " "TASKPRI=" pri " " protostr)
  106. )
  107.  
  108.